﻿Imports System.Transactions
Imports CondorTravel.BE
Imports CondorTravel.DALC

Public Class SolicitudServicioBC

    Public Function InsertarSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE, ByRef bExito As Boolean, ByRef sMensaje As String) As Boolean

        Dim objScope As TransactionScope
        objScope = New TransactionScope


        Using objScope
            Try
                Dim objSolicitudServDALC As SolicitudServicioDALC = Nothing
                objSolicitudServDALC = New SolicitudServicioDALC

                objSolicitudServDALC.InsertarSolicitudServicio(objSolicitudServicioBE, bExito, sMensaje)

                objScope.Complete()
            Catch ex As Exception
                Throw
            End Try
        End Using

        Return bExito
    End Function


    Public Function ModificaSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE, ByRef bExito As Boolean, ByRef sMensaje As String) As Boolean

        Dim objScope As TransactionScope
        objScope = New TransactionScope


        Using objScope
            Try
                Dim objSolicitudServDALC As SolicitudServicioDALC = Nothing
                objSolicitudServDALC = New SolicitudServicioDALC

                objSolicitudServDALC.ModificaSolicitudServicio(objSolicitudServicioBE, bExito, sMensaje)

                objScope.Complete()
            Catch ex As Exception
                Throw
            End Try
        End Using

        Return bExito
    End Function

    Public Function EliminarSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE) As Integer

        Dim objScope As TransactionScope
        objScope = New TransactionScope
        Dim iSolicitud As Integer

        Using objScope
            Try
                Dim objSolicitudServDALC As SolicitudServicioDALC = Nothing
                objSolicitudServDALC = New SolicitudServicioDALC

                iSolicitud = objSolicitudServDALC.EliminarSolicitudServicio(objSolicitudServicioBE)
                objScope.Complete()
            Catch ex As Exception
                MsgBox(ex.Message, vbCritical, "Error del sistema")
                Return Nothing
                Exit Function
            End Try
        End Using

        Return iSolicitud

    End Function

    Public Function ListarSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE) As List(Of SolicitudServicioBE)

        Dim objSolServicio As List(Of SolicitudServicioBE) = Nothing
        Dim objSolServicioDALC As SolicitudServicioDALC = Nothing

        objSolServicioDALC = New SolicitudServicioDALC
        objSolServicio = New List(Of SolicitudServicioBE)()
        objSolServicio = objSolServicioDALC.ListaSolicitudServicio(objSolicitudServicioBE)

        Return objSolServicio
    End Function


    Public Function ListarSolicitudServicio_Update(ByVal objSolicitudServicioBE As SolicitudServicioBE, ByRef bExito As Boolean, ByRef sMensaje As String) As List(Of SolicitudServicioBE)

        Dim objSolServicio As List(Of SolicitudServicioBE) = Nothing
        Dim objSolServicioDALC As SolicitudServicioDALC = Nothing

        objSolServicioDALC = New SolicitudServicioDALC
        objSolServicio = New List(Of SolicitudServicioBE)()
        objSolServicio = objSolServicioDALC.ListaSolicitudServicio_Update(objSolicitudServicioBE, bExito, sMensaje)

        Return objSolServicio
    End Function

    Public Function ListarSolicitudServicio_Busqueda(ByVal objSolicitudServicioBE As SolicitudServicioBE, ByRef bExito As Boolean, ByRef sMensaje As String) As List(Of SolicitudServicioBE)

        Dim objSolServicio As List(Of SolicitudServicioBE) = Nothing
        Dim objSolServicioDALC As SolicitudServicioDALC = Nothing

        objSolServicioDALC = New SolicitudServicioDALC
        objSolServicio = New List(Of SolicitudServicioBE)()
        objSolServicio = objSolServicioDALC.ListaSolicitudServicio_Busqueda(objSolicitudServicioBE, bExito, sMensaje)

        Return objSolServicio
    End Function

    Public Function ValidarSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE, ByRef bExito As Boolean, ByRef sMensaje As String) As List(Of SolicitudServicioBE)

        Dim objSolServicio As List(Of SolicitudServicioBE) = Nothing
        Dim objSolServicioDALC As SolicitudServicioDALC = Nothing

        objSolServicioDALC = New SolicitudServicioDALC
        objSolServicio = New List(Of SolicitudServicioBE)()
        objSolServicio = objSolServicioDALC.ValidarSolicitudServicio(objSolicitudServicioBE, bExito, sMensaje)

        Return objSolServicio
    End Function


    Public Function ValidarEliminarSolicitudServicio(ByVal objSolicitudServicioBE As SolicitudServicioBE) As Integer

        Dim objScope As TransactionScope
        objScope = New TransactionScope
        Dim iSolicitud As Integer

        Using objScope
            Try
                Dim objSolicitudServDALC As SolicitudServicioDALC = Nothing
                objSolicitudServDALC = New SolicitudServicioDALC

                iSolicitud = objSolicitudServDALC.ValidarEliminaSolicitudServicio(objSolicitudServicioBE)
                objScope.Complete()
            Catch ex As Exception
                MsgBox(ex.Message, vbCritical, "Error del sistema")
                Return Nothing
                Exit Function
            End Try
        End Using

        Return iSolicitud

    End Function





End Class
